<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>13</cardCount>
<cardID>2979</cardID>
<listID>10927</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal isSixif item 4 of the screenRect <= 342 then hide menuBarhide msgcheckHelpMgrif isSix then exit openStackif balloons("isOn") then put "On" into balloonStatuselse put "Off" into balloonStatusget balloons("On")go cd 1 -- in case user popped cdput the loc of btn "on/off" into tipset the hilite of btn "on/off" to trueput Balloons("ShowPICT", 1515, tip) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowPICT", 1515, tip) into helpResultend repeatput the ticks into waitStartrepeat until the ticks - waitStart >= 180if the mouseClick then exit repeatend repeatget balloons(balloonStatus) -- restoreif not balloons("isOn") then set the hilite of btn "on/off" to falseremoveABalloon -- in case status = onend openStackon checkHelpMgrglobal isSixput (balloons("isOn") contains "Error") into isSixif isSix thenanswer "This stack is fully functional only under " ¬& "System 7.0 when the Help Manager is present." ¬& "The Help Manager is not detected on this Mac. You may " ¬& "read the information in this stack without accessing the " ¬& "help balloons, or you may return to your Home stack." ¬with "Home" or "Continue"if it is "home" thengo homeexit to HyperCardend ifend ifend checkHelpMgron errorMsgglobal isSixif isSix thenanswer "Cannot turn on Balloon Help; the Help Manager is not present on this Macintosh."exit to HyperCardend ifend errorMsg------------------ Balloon Help Handlers and Functions -----------------on ShowABalloon helpMessage,location,versionif location is empty then put calcTip() into locationif version is empty then put 0 into versionput Balloons("show",helpMessage,location,version) into helpResultrepeat until "-853" is not in helpResultput Balloons("show",helpMessage,location, version) into helpResultend repeatend ShowABalloonon ShowAPict pictResourceIDput calcTip() into tipput Balloons("ShowPICT", pictResourceID, tip) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowPICT", pictResourceID, tip) into helpResultend repeatend ShowAPicton ShowStyledText styledResourceID,location,versionif location is empty then put calcTip() into locationif version is empty then put 0 into versionput Balloons("ShowStyle", styledResourceID, location,version) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowStyle", styledResourceID, location,version) into helpResultend repeatend ShowStyledTexton ShowAString STRResourceID, theTip, versionif theTip is empty then put calcTip() into tipelse put theTip into tipput Balloons("ShowSTR", STRResourceID, tip, version) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowSTR", STRResourceID, tip, version) into helpResultend repeatend ShowAStringon ShowASTRLIst STRResourceID, index, theTip, versionif theTip is empty then put calcTip() into tipput STRResourceID && "," && index into resourceRecordput Balloons("ShowSTRList", resourceRecord, tip, version) into helpResultrepeat until "-853" is not in helpResultput Balloons("ShowSTRList", resourceRecord, tip, version) into helpResultend repeatend ShowASTRListon RemoveABalloonget Balloons("Remove")end RemoveABalloonfunction calcTipput the botRight of the target into tipsubtract 10 from item 1 of tipsubtract 10 from item 2 of tipreturn tipend calcTip</script>
